00100		SUBROUTINE SUBR
00200		COMMON /INS/ INST(27),BG(60)
00300		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
00400	C   INUM=INST#  IPAR=PARAM#  
00500	C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
00600	C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
00700	C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
00800	C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
00900	C   F1=86  F15=100 (NO F16!)
01000	
01100		K=P(3)
01200		IF(K.EQ.J)K=K+1
01300		J=K
01400		P(3)=K
01500	C STOPS REPETITION OF RANDOM NOTES.
01600		END
01700	
01800	*** THE INPUT ***
01900	
02000	CLAR 0 5;
02100	P2 .08;
02200	P3 1 GS4 B;
02300	P4 1000;
02400	P5 F1;
02500	P7 F4;
02600	P6 SUBR;
02700	END;
02800	CLAR 2;
02900	P6 0;
03000	END;
03100	CLAR 3.5;
03200	P6 SUBR;
03300	END;
     

00100		SUBROUTINE SUBR
00200		COMMON /INS/ INST(27),BG(60)
00300		COMMON P(30),INUM,IPAR,CNT(27),BT,PL(48),IREST,DF,DUR(27)
00400	C   INUM=INST#  IPAR=PARAM#  
00500	C   BT=BASIC TIME P1 WHEN SUBROUTINE IS CALLED
00600	C   IF IREST IS <0, THAT NOTE WILL BE A REST.  
00700	C   INST=INST. NAME,  BG=INSTS' BEGIN TIMES.
00800	C   NOTE #S IN SUBROUTINE: (1-84)  C4=37  FS4=43  C5=49  ETC.
00900	C   F1=86  F15=100 (NO F16!)
01000	
01100		DATA N/52/,M/3/
01200	
01300		K=P(3)
01400		IF(K.NE.J)GO TO 1
01500		K=N
01600		IF(N.GT.81 .OR. N.LT.52)M=-M
01700	C  MOVES UP DIM. CHORD TONES.
01800		N=N+M
01900		P(7)=88
02000		P(4)=P(4)/3
02100		P(2)=P(2)*3
02200	1	J=K
02300		P(3)=K
02400	C STOPS REPETITION OF RANDOM NOTES.
02500		END
02600	
02700	*** THE INPUT  *****
02800	
02900	CLAR 0 10;
03000	P2 .1;
03100	P3 1 G4 B;
03200	P4 1000;
03300	P5 F1;
03400	P7 F4;
03500	P8 SUBR;
03600	END;